home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1987 July / Ahoy_Magazine_87-07_1987_Double_L_Side_A.d64 / dir 1 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  10.0 KB  |  293 lines
  1. 30 rem********************************
  2. 32 rem*         menu program         *
  3. 34 rem*          designed by         *
  4. 36 rem*       double l software      *
  5. 38 rem* (c) 1987 all rights reserved *
  6. 40 rem********************************
  7. 50 poke53265,peek(53265)and239
  8. 60 clr:gosub4000
  9. 80 dim p$(25),in$(25,5):gosub5000
  10. 100 poke53280,2:poke53281,0:printchr$(14):gosub2500:gosub5900
  11. 120 gosub800:poke53265,peek(53265)or16
  12. 140 h=1:g=0:l=8:lc=55590:p=8
  13. 150 fori=8to19:g=g+1:printleft$(l$,i)tab(14)"[154]"p$(g):next
  14. 204 f=len(p$(h)):fori=0tof:pokelc+i,7:next:gosub1000
  15. 205 printleft$(l$,p)tab(10)pt$
  16. 206 getan$:ifan$=""then206
  17. 208 ifan$=chr$(17)then1250
  18. 210 ifan$=chr$(145)then1300
  19. 215 ifan$=chr$(13)then2000
  20. 220 ifan$=chr$(32)andg=>24thengosub3000:goto140
  21. 222 ifan$=chr$(32)thengosub3000:h=13:lc=55590:p=8:goto150
  22. 225 goto204
  23. 230 print"[147]";:poke53280,0:poke53281,6
  24. 235 print"[158][204]oading...";chr$(34);p$(h)chr$(34);""
  25. 240 print "load";chr$(34);p$(h);chr$(34);",8"
  26. 250 print "run":print "[145][145][145][145][145][145][145][145][145]"
  27. 260 poke 631,13:poke 632,13:poke 198,2:end
  28. 800 print"[147]":printleft$(l$,2)tab(2)"[158][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  29. 810 printleft$(l$,3)tab(2)"[158][221]  [154][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][158]  [221]"
  30. 820 fori=1to16:printtab(2)"[221]  [154][221]                            [221][158]  [221]":next
  31. 830 printleft$(l$,20)tab(2)"[221]  [154][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][158]  [221]"
  32. 835 printleft$(l$,21)tab(2)"[158][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  33. 840 printleft$(l$,22)tab(1)"[155][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  34. 850 printleft$(l$,23)tab(1)"[221] [158][195]rsr[155]=[211]elect  [211]pc[155]=[205]ore  [150][195]/[210][155]=[197]xecute [221]"
  35. 860 printleft$(l$,24)tab(1)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  36. 870 printleft$(l$,4)tab(10)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  37. 880 printtab(10)"[221] [205] [193] [201] [206]  [205] [197] [206] [213] [221]"
  38. 890 printtab(10)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  39. 900 return
  40. 1000 s=54272:pokes+23,0:pokes+24,15
  41. 1010 pokes+6,0:pokes+5,12:pokes+1,70:pokes+3,40
  42. 1020 pokes+4,0:pokes+4,65:ford=1to100:next:pokes+4,0:return
  43. 1250 printleft$(l$,p)tab(10)"[154]  ":fori=0tof:pokelc+i,14:next
  44. 1260 h=h+1:ifh>gthenh=h-12
  45. 1262 p=p+1:ifp>19thenp=8
  46. 1265 lc=lc+40:iflc>56030thenlc=55590
  47. 1270 goto204
  48. 1300 printleft$(l$,p)tab(10)"[154]  ":fori=0tof:pokelc+i,14:next
  49. 1310 h=h-1:ifh<g-11thenh=h+12
  50. 1312 p=p-1:ifp<8thenp=19
  51. 1315 lc=lc-40:iflc<55590thenlc=56030
  52. 1320 goto204
  53. 1550 sys828
  54. 1560 printleft$(l$,13)tab(4)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  55. 1570 printleft$(l$,14)tab(4)"[221] [212]his is a 128 [208]rogram.[201]t may [221]"
  56. 1580 printleft$(l$,15)tab(4)"[221] not be loaded in the 64 mode.[221]"
  57. 1590 printleft$(l$,16)tab(4)"[221] [217]ou must switch to the 128   [221]"
  58. 1600 printleft$(l$,17)tab(4)"[221] mode in order to load this   [221]"
  59. 1610 printleft$(l$,18)tab(4)"[221] program successfully. [213]se the[221]"
  60. 1620 printleft$(l$,19)tab(4)"[221] prescribed method which is...[221]"
  61. 1630 printleft$(l$,20)tab(4)"[221] [196][204]oad ''[208]rogname''           [221]"
  62. 1640 printleft$(l$,21)tab(4)"[221]       [158][[208]ress any [203]ey]        [221]"
  63. 1650 printleft$(l$,22)tab(4)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  64. 1660 printleft$(l$,23)tab(3)"[155]                                  ":gosub1000
  65. 1670 getan$:ifan$=""then1670
  66. 1680 sys882:goto225
  67. 1997 rem **************************
  68. 1998 rem ****  window routine  ****
  69. 1999 rem **************************
  70. 2000 sys828
  71. 2010 printleft$(l$,5)tab(11)"                  "
  72. 2030 printleft$(l$,6)tab(11)" [211]ee [201]nstructions "
  73. 2040 printleft$(l$,7)tab(11)" [210]un [208]rogram      "
  74. 2050 printleft$(l$,8)tab(11)" [195]ancel [215]indow    "
  75. 2060 printleft$(l$,9)tab(11)"                  "
  76. 2070 po=55507:x=0
  77. 2080 fori=1to16:pokepo+i,1:next:gosub1000
  78. 2090 getan$:ifan$=""then2090
  79. 2100 ifan$=chr$(17)thengosub2200:po=po+40:x=x+1:ifpo>55587thenpo=55507
  80. 2110 ifx>2thenx=0
  81. 2120 ifan$=chr$(13)then2140
  82. 2130 goto2080
  83. 2140 ifx=0thensys882:goto4100
  84. 2145 ifx=2then2160
  85. 2146 ifh=3orh=9orh=10orh=11orh=22thensys882:goto1550
  86. 2159 ifx=1thensys882:goto230
  87. 2160 sys882:goto225
  88. 2200 fori=1to16:pokepo+i,5:next:return
  89. 2500 p$(1)="[198]lankspeed"
  90. 2510 p$(2)="64 [194]ug [210]ep [201][201]"
  91. 2520 p$(3)="128 [194]ug [210]ep ii"
  92. 2530 p$(4)="[213]nivaders"
  93. 2540 p$(5)="[208]link & [208]lonk"
  94. 2550 p$(6)="[215]izard [212]ag [201][201]"
  95. 2560 p$(7)="[196]ata [197]xpress"
  96. 2570 p$(8)="[196]ata [195]reator 64"
  97. 2580 p$(9)="data creator 128"
  98. 2590 p$(10)="128scroller"
  99. 2600 p$(11)="fast shuffle"
  100. 2610 p$(12)="[194]map [212]utorial"
  101. 2615 p$(13)="[204][197][196] [196]river"
  102. 2620 p$(14)="[207]pt. [207]scillator"
  103. 2630 p$(15)="[197]xp. [208]ower"
  104. 2640 p$(16)="[197]lectric [208]ower1"
  105. 2650 p$(17)="[197]lectric [208]ower2"
  106. 2660 p$(18)="[194]inary [208]ower 1"
  107. 2670 p$(19)="[194]inary [208]ower 2"
  108. 2690 p$(20)="[194]inary [208]ower 3"
  109. 2700 p$(21)="[210]oot [208]ower"
  110. 2710 p$(22)="root power 128"
  111. 2720 p$(23)=""
  112. 2730 p$(24)=""
  113. 2740 return
  114. 3000 forcl=8to19:printleft$(l$,cl)tab(14)"[154]                ":next
  115. 3010 printleft$(l$,p)tab(10)"[154]  ":return
  116. 4000 poke657,128:rem disable shift/com key
  117. 4010 poke775,200:rem disable listing
  118. 4020 poke808,234:rem disable stop/restore
  119. 4030 l$="":pt$="[154]=>":return
  120. 4100 sys828
  121. 4120 fori=8to14:printleft$(l$,i)tab(1)"[159]                                      "
  122. 4125 next
  123. 4130 printleft$(l$,15)tab(1)"    [158][[195]/[210]=[195]ancel * [211]pc=[210]un [208]rogram][159]    "
  124. 4145 printleft$(l$,23)tab(3)"[155]                                  ":gosub1000
  125. 4150 fori=1to5:printleft$(l$,8+i)tab(3)"[159]"in$(h,i):next
  126. 4160 getan$:ifan$=""then4160
  127. 4170 ifan$=chr$(13)thensys882:goto204
  128. 4180 ifh=3orh=9orh=10orh=11orh=22thensys882:goto1550
  129. 4190 ifan$=chr$(32)thensys882:goto230
  130. 4200 goto4160
  131. 5000 fori=828to935:reada:pokei,a:next:return
  132. 5010 data 160,0,185,0,4,153,0,192
  133. 5020 data 185,0,216,153,240,195,185,250
  134. 5030 data 4,153,250,192,185,250,216,153
  135. 5040 data 234,196,185,244,5,153,244,193
  136. 5050 data 185,244,217,153,228,197,185,238
  137. 5060 data 6,153,238,194,185,238,218,153
  138. 5070 data 222,198,200,208,205,96,160,0
  139. 5080 data 185,0,192,153,0,4,185,240
  140. 5090 data 195,153,0,216,185,250,192,153
  141. 5100 data 250,4,185,234,196,153,250,216
  142. 5110 data 185,244,193,153,244,5,185,228
  143. 5120 data 197,153,244,217,185,238,194,153
  144. 5130 data 238,6,185,222,198,153,238,218
  145. 5140 data 200,208,205,96
  146. 5799 rem ---------------------------
  147. 5800 rem ** max of 33 chrs in length **
  148. 5801 rem ---------------------------
  149. 5900 fori=1to24:forx=1to5:readin$(i,x):next:next:return
  150. 5999 rem program #1
  151. 6000 data "[212]his is [193]hoy!'s [205]achine [204]anguage "
  152. 6001 data "entry program for our adventurous"
  153. 6002 data "readers who like to type in the"
  154. 6003 data "programs from our magazine."
  155. 6004 data " "
  156. 6009 rem program #2
  157. 6010 data "[193]hoy!'s checksum program, for mis-"
  158. 6011 data "takeproof typing of [195]-64 [194][193][211][201][195]    "
  159. 6012 data "programs printed in [193]hoy!. ([198]or    "
  160. 6013 data "programs published from [205]ay 1987 "
  161. 6014 data "only! [207]therwise use 64 [194]ug [210]ep.)
  162. 6019 [143] program #3
  163. 6020 [131] "atnhoy!'s checksum program, for mis- "
  164. 6021 [131] "takeproof typing of len-128closepeekatn(NULL)right$len "
  165. 6022 [131] "programs printed in atnhoy! (ascor pro-"
  166. 6023 [131] "grams published from (NULL)ay 1987 only!"
  167. 6024 [131] "(NULL)therwise use 128 peekug (NULL)epellent.)"
  168. 6029 [143] program #4
  169. 6030 [131] "(NULL)he (NULL)nivaders descend on your"
  170. 6031 [131] "lonely outpost in unending waves."
  171. 6032 [131] "(NULL)ou are given four guns to defend  "
  172. 6033 [131] "against them and their concussion"
  173. 6034 [131] "bombs. mid$oystick in (NULL)ort 2.         "
  174. 6039 [143] program #5
  175. 6040 [131] "atn checkers-like game for two       "
  176. 6041 [131] "players, requiring you to eliminate"
  177. 6042 [131] "your opponent's counters. mid$oystick "
  178. 6043 [131] "in (NULL)ort 2.                        "
  179. 6044 [131] "                                 "
  180. 6049 [143] program #6
  181. 6050 [131] "atn sequel to (NULL)izard (NULL)ag ((NULL)arch '87)
  182. 6051 data "bigger than the original, with  "
  183. 6052 data "new dangers. [212]o win, you must    "
  184. 6053 data "gather eight keys and tag the    "
  185. 6054 data "[215]izard. [202]oystick in [208]ort 2.      "
  186. 6059 rem program #7
  187. 6060 data "[196]ata [197]xpress adds the [195]-128's     "
  188. 6061 data "binary save feature to the [195]-64, "
  189. 6062 data "enabling you to save machine     "
  190. 6063 data "language and sprite data directly"
  191. 6064 data "from memory.               "
  192. 6069 rem program #8
  193. 6070 data "[196]ata [195]reator 64 is a machine       "
  194. 6071 data "language utility that will allow "
  195. 6072 data "you to convert any section of [210][193][205]  "
  196. 6073 data "from any bank into [194][193][211][201][195] data    "
  197. 6074 data "statements.                     "
  198. 6079 rem program #9
  199. 6080 data "[196]ata [195]reator 128 is a machine    "
  200. 6081 data "language utility that will allow  "
  201. 6082 data "you to convert any section of [210][193][205]"
  202. 6083 data "from any bank into [194][193][211][201][195] data     "
  203. 6084 data "statements.                        "
  204. 6089 rem program #10
  205. 6090 data "128 [211]croller is a machine language"
  206. 6091 data "utility that allows you to scroll  "
  207. 6092 data"any number of text screen lines in"
  208. 6093 data"four directions. [201]t can be used to"
  209. 6094 data"simulate slot machines and roulette."
  210. 6099 rem program #11
  211. 6100 data"[193] simple game for the [195]-128 demon- "
  212. 6101 data"strating the capabilities of 128   "
  213. 6102 data"scroller. [213]se the cursor keys and "
  214. 6103 data"space bar to push and pull rows and"
  215. 6104 data"columns of tiles into order.   "
  216. 6109 rem program #12
  217. 6110 data"[193]ccompanying this month's [194]it [205]ap  "
  218. 6111 data"[199]raphics [212]utorial, the [194]it [205]ap   "
  219. 6112 data"[212]utorial program allows you to     "
  220. 6113 data"experiment with the [195]-64's hi-res "
  221. 6114 data"and multicolor displays.          "
  222. 6119 rem program #13
  223. 6120 data"[204][197][196] [196]river provides a means of turn-"
  224. 6121 data"ing an [204][197][196] connected to the cassette"
  225. 6122 data"port on and off and experimenting"
  226. 6123 data"with the frequency and duty cycle"
  227. 6124 data"of its operation."
  228. 6129 rem program #14
  229. 6130 data"[208]art of this month's [210]upert [210]eport,"
  230. 6131 data"[207]ptical [207]scillator is used to show"
  231. 6132 data"a simple example of a 'closed loop'"
  232. 6133 data"control system.                   "
  233. 6134 data"                        "
  234. 6139 rem program #15
  235. 6140 data"[211]olution to the [205]arch '87 [195]ommodare"
  236. 6141 data"requiring the user to approximate  "
  237. 6142 data"the exponential function in a     "
  238. 6143 data"program.                           "
  239. 6144 data"                                  "
  240. 6149 rem program #16
  241. 6150 data"[211]olution to the [205]arch '87 [195]ommodare"
  242. 6151 data"requiring the user to write a      "
  243. 6152 data"program to calculate electical     "
  244. 6153 data"usage according to a table.        "
  245. 6154 data"                                 "
  246. 6159 rem program #17
  247. 6160 data"[193]nother solution to the [205]arch '87 "
  248. 6161 data"[195]ommodare. ([211]ee [197]lectric [208]ower 1)"
  249. 6162 data"                                 "
  250. 6163 data"                                   "
  251. 6164 data"                                  "
  252. 6169 rem program #18
  253. 6170 data"[211]olution to the [205]arch '87 [195]ommodare"
  254. 6171 data"requiring the user to write a prog."
  255. 6172 data"that will display the binary    "
  256. 6173 data"equivalent (base 2) and the binary"
  257. 6174 data"mirror image of a number.         "
  258. 6179 rem program #19
  259. 6180 data"[193]nother solution to the [205]arch '87"
  260. 6181 data"[195]ommodare. ([211]ee [194]inary [208]ower 1.)"
  261. 6182 data"                                  "
  262. 6183 data"                                  "
  263. 6184 data"                                  "
  264. 6189 rem program #20
  265. 6190 data"[193] third solution to the [205]arch '87  "
  266. 6191 data"[195]ommodare. ([211]ee [194]inary [208]ower 1.)"
  267. 6192 data"                                  "
  268. 6193 data"                                   "
  269. 6194 data"                                 "
  270. 6199 rem program #21
  271. 6200 data"[211]olution to the [205]arch '87 [195]ommodare"
  272. 6201 data"req. the user to write a program "
  273. 6202 data"that will display only those numbers"
  274. 6203 data"for which the [211][209][210] function of the"
  275. 6204 data"square of the number is = to the no."
  276. 6209 rem program #22
  277. 6210 data"[193] [195]-128 solution to the [205]arch '87"
  278. 6211 data"[195]ommodare. ([211]ee [210]oot [208]ower.)     "
  279. 6212 data"                                 "
  280. 6213 data"                                "
  281. 6214 data"                            "
  282. 6219 rem program #23
  283. 6220 data"[206]ot [213]sed.....                      "
  284. 6221 data"                                  "
  285. 6222 data"                                   "
  286. 6223 data"                                  "
  287. 6224 data"                               "
  288. 6229 rem program #24
  289. 6230 data"[206]ot [213]sed.....                   "
  290. 6231 data"             :                   "sin/xdata"                                 "
  291. 6233 data"                                   "
  292. 6234 data"                             "
  293.